home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / int_lom.zip / LOGOFF.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-03-06  |  6KB  |  266 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     String   TSTRING001(3)
  27.     String   TSTRING002(3)
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING007 = "WHY ARE YOU ALL TRYING TO DECOMPILE THESE POOR PPE'S WHEN YOU CAN REGISTER THIS ONE ???"
  37.     STRING007 = "ANYWAY, THIS PPE IS ALREADY REGISTERED, SO DONT TRY TO DECOMPILE IT , IDIOT"
  38.     SaveScrn
  39.     BOOLEAN001 = 0
  40.     TSTRING001(0) = "@X07                                  Leave BBS                                    @X08"
  41.     TSTRING001(1) = "@X07                              Page SysOp For Chat                              @X08"
  42.     TSTRING001(2) = "@X07                                Leave Feedback                                 @X08"
  43.     TSTRING001(3) = "@X07                                 Return To BBS                                 @X08"
  44.     TSTRING002(0) = "@X08 @X4F ■                               Leave BBS                                  ■ @X08"
  45.     TSTRING002(1) = "@X08 @X4F ■                           Page SysOp For Chat                            ■ @X08"
  46.     TSTRING002(2) = "@X08 @X4F ■                             Leave Feedback                               ■ @X08"
  47.     TSTRING002(3) = "@X08 @X4F ■                              Return To BBS                               ■ @X08"
  48.     :LABEL001
  49.     Cls
  50.     PrintLn "@X0F                    @X07▀@X7F▀@X0F█  @X07▄@X7F▄@X0F▀▀█▄@X07▐@X0F█▀▀▀▀▀   @X7F▐@X0F▀▀▀█@X07▐@X0F██▀▀@X07▐@X0F██▀▀"
  51.     PrintLn "@X0F             I@X07.N@X08.T   @X07▐@X0F█ @X07▐@X0F█    @X7F @X0F▌@X7F▐@X0F▌ ▀@X07▐@X0F█ ▀ @X7F▐@X0F▌  █@X07▐@X0F██▄ @X07▐@X0F██▄  P@X07.P@X08.E"
  52.     PrintLn "@X08                    @X07▄@X7F▄@X0F▌@X07▄@X0F▄▄▄  @X07▄@X7F▄@X0F▌@X7F▐@X0F█▄ @X7F▐@X0F█   @X7F▐@X0F█  █@X07▐@X0F██  @X07▐@X0F██      v0.2ß"
  53.     PrintLn "@X0F                   @X07▀@X0F▀▀▀▀▀▀▀▀ ▀▀ @X07▀@X0F▀▀▀▀▀   @X07▀@X0F▀▀▀▀ ▀▀   ▀▀ @X07B@X08y @X0FP@X07a@X08i@X0Fn@X07e@X08r@X0F-@X07K@X08i@X0Fd"
  54.     PrintLn "@X0F @X7F▀@X0F   @X7F▀@X0F  @X7F▀@X0F @X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F @X7F▀@X0F  @X7F▀@X0F   @X7F▀@X07"
  55.     PrintLn "@X0F @X78▄@X0F   @X78▄@X0F  @X78▄@X0F @X78▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0F @X78▄@X0F  @X78▄@X0F   @X78▄@X07"
  56.     PrintLn "@X07                                  Leave BBS                                    @X07"
  57.     PrintLn "@X07                              Page SysOp For Chat                              @X07"
  58.     PrintLn "@X07                                Leave Feedback                                 @X07"
  59.     PrintLn "@X07                                 Return To BBS                                 @X07"
  60.     PrintLn "@X0C @X7F▀@X0F   @X7F▀@X0F  @X7F▀@X0F @X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F @X7F▀@X0F  @X7F▀@X0F   @X7F▀@X07"
  61.     PrintLn "@X0F @X78▄@X0F   @X78▄@X0F  @X78▄@X0F @X78▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0F @X78▄@X0F  @X78▄@X0F   @X78▄@X07"
  62.     INTEGER003 = 1
  63.     INTEGER002 = 1
  64.     :LABEL002
  65.     AnsiPos 1, 6 + INTEGER003
  66.     Print TSTRING001(INTEGER003 - 1)
  67.     AnsiPos 1, 6 + INTEGER003
  68.     INTEGER003 = INTEGER002
  69.     AnsiPos 1, 6 + INTEGER002
  70.     Print TSTRING002(INTEGER002 - 1)
  71.     AnsiPos 1, 6 + INTEGER002
  72.     :LABEL003
  73.     STRING003 = Inkey()
  74.     If (STRING003 == "") Goto LABEL003
  75.     STRING003 = Upper(STRING003)
  76.     If (STRING003 == "") Then
  77.         RestScrn
  78.         KbdStuff "N" + Chr(13)
  79.         End
  80.     Endif
  81.     If ((((((((STRING003 <> "DOWN") && (STRING003 <> "UP")) && (STRING003 <> "2")) && (STRING003 <> "8")) && (STRING003 <> "Z")) && (STRING003 <> "A")) && (STRING003 <> Chr(13))) && (STRING003 <> Chr(246))) Goto LABEL003
  82.     If (STRING003 == Chr(13)) Goto LABEL007
  83.     If (((STRING003 == "DOWN") || (STRING003 == "Z")) || (STRING003 == "2")) Goto LABEL005
  84.     If (((STRING003 == "UP") || (STRING003 == "A")) || (STRING003 == "8")) Goto LABEL006
  85.     If (STRING003 == Chr(246)) Gosub LABEL004
  86.     Goto LABEL003
  87.     :LABEL004
  88.     BOOLEAN001 = 1
  89.     GetAltUser 1
  90.     INTEGER006 = U_Sec
  91.     Return
  92.     :LABEL005
  93.     If (INTEGER002 == 4) Goto LABEL003
  94.     Inc INTEGER002
  95.     Goto LABEL002
  96.     :LABEL006
  97.     If (INTEGER002 == 1) Goto LABEL003
  98.     Dec INTEGER002
  99.     Goto LABEL002
  100.     :LABEL007
  101.     If (INTEGER002 == 1) Goto LABEL009
  102.     If (INTEGER002 == 2) Goto LABEL008
  103.     If (INTEGER002 == 3) Goto LABEL010
  104.     If (INTEGER002 == 4) Goto LABEL000
  105.     RestScrn
  106.     KbdStuff "N" + Chr(13)
  107.     End
  108.     :LABEL008
  109.     Cls
  110.     Print "@X0FP@X07u@X0FT @X07a @X0FG@X07oo@X0FD @X0FR@X07ea@X0FS@X07o@X0FN @X08:"
  111.     Input " _", STRING004
  112.     If (STRING004 == "") Then
  113.         Cls
  114.         Goto LABEL001
  115.     Endif
  116.     Newline
  117.     Log "User Paged At LogOff Matrix", 0
  118.     Log " Reason : " + Upper(STRING004), 0
  119.     Print "@X09Paging SysOp ."
  120.     For INTEGER004 = 1 To 20
  121.         Print "."
  122.         Delay 18
  123.         STRING004 = KInkey()
  124.         If (STRING004 == " ") Then
  125.             Chat
  126.             Break
  127.         Endif
  128.         If (STRING004 == "") Break
  129.     Next
  130.     PrintLn "@X0FS@X07ys@X0FO@X07p @X0FI@X07s @X0FN@X07ot @X0FA@X07vailable @X0FF@X07or @X0FC@X07hat @X0F!!!"
  131.     Goto LABEL001
  132.     :LABEL009
  133.     Cls
  134.     PrintLn "@X0FC'ya Tomorrow, @USER@ ! ! ! !"
  135.     If (BOOLEAN001) Then
  136.         GetUser
  137.         U_Sec = INTEGER006
  138.         PutUser
  139.     Endif
  140.     KbdStuff "Y" + Chr(13)
  141.     End
  142.     :LABEL010
  143.     Cls
  144.     PrintLn "@X0FT@X07o @X08: @X0F" + ReadLine(PCBDat(), 2)
  145.     PrintLn "@X0FF@X07rom @X08: @X0F" + U_Name()
  146.     Input "@X0FS@X07ubject @X08: @X0F_", STRING006
  147.     If (STRING006 == "") Then
  148.         Cls
  149.         Goto LABEL001
  150.     Endif
  151.     Newline
  152.     PrintLn "@X0F─────── @X0FH@X07it @X0FE@X07nter @X0FO@X07n @X0FB@X07lank @X0FL@X07ine @X0FT@X07o @X0FS@X07ave @X0F────────────────────@X07───@X0F─@X07──@X08─@X07───@X0F─────"
  153.     INTEGER005 = 1
  154.     FCreate 1, PPEPath() + "MSG.TXT", 1, 0
  155.     For INTEGER004 = 1 To 20
  156.         STRING005 = ""
  157.         Input "@X09 " + String(INTEGER005) + " > _", STRING005
  158.         Newline
  159.         If (STRING005 == "") Break
  160.         Inc INTEGER005
  161.         FPutLn 1, STRING005
  162.     Next
  163.     Print "@X0FS@X07aving @X0FM@X07essage@X08, @X0FP@X07lease @X0FW@X07ait @X0F. . ."
  164.     FPutLn 1, " "
  165.     FPutLn 1, " @X08Via LogOff Matrix By Painer-Kid - <REGISTERED>"
  166.     FClose 1
  167.     Message 0, ReadLine(PCBDat(), 2), U_Name(), STRING006, "R", 0, 0, 0, PPEPath() + "MSG.TXT"
  168.     Log BOOLEAN002, 0
  169.     Delete PPEPath() + "MSG.TXT"
  170.     Cls
  171.     Goto LABEL001
  172.  
  173. ;------------------------------------------------------------------------------
  174. ;
  175. ; Usage report (before postprocessing)
  176. ;
  177. ; ■ Statements used :
  178. ;
  179. ;    3       End
  180. ;    7       Cls
  181. ;    30      Goto 
  182. ;    26      Let 
  183. ;    6       Print 
  184. ;    17      PrintLn 
  185. ;    21      If 
  186. ;    3       Input 
  187. ;    1       FCreate 
  188. ;    1       FClose 
  189. ;    3       FPutLn 
  190. ;    1       GetUser
  191. ;    1       PutUser
  192. ;    1       Delete 
  193. ;    3       Log 
  194. ;    1       Gosub 
  195. ;    1       Return
  196. ;    1       Delay 
  197. ;    2       Inc 
  198. ;    1       Dec 
  199. ;    3       Newline
  200. ;    3       KbdStuff 
  201. ;    4       AnsiPos 
  202. ;    1       Message 
  203. ;    1       SaveScrn
  204. ;    2       RestScrn
  205. ;    1       Chat
  206. ;    1       GetAltUser 
  207. ;
  208. ;
  209. ; ■ Functions used :
  210. ;
  211. ;    17      +
  212. ;    2       -
  213. ;    21      ==
  214. ;    8       <>
  215. ;    2       <
  216. ;    2       <=
  217. ;    4       >=
  218. ;    7       !
  219. ;    11      &&
  220. ;    6       ||
  221. ;    2       Upper()
  222. ;    7       Chr()
  223. ;    2       U_Name()
  224. ;    1       Inkey()
  225. ;    1       String()
  226. ;    2       PCBDat()
  227. ;    3       PPEPath()
  228. ;    2       ReadLine()
  229. ;    1       KInkey()
  230. ;
  231. ;------------------------------------------------------------------------------
  232. ;
  233. ; Analysis flags : WRd
  234. ;
  235. ; W - Write user ■ 5
  236. ;     Program writes a user record. Although this may be normal for a
  237. ;     User Editor, it may also be a way to modify an account level.
  238. ;     ■ Search for : PUTUSER
  239. ;
  240. ; R - Read user ■ 5
  241. ;     User records are read, this may signify that someone wants to get
  242. ;     various informations about a user (for example his password), but
  243. ;     this may also be normal for a program accessing user records (for
  244. ;     example a User Editor)
  245. ;     ■ Search for : GETALTUSER
  246. ;
  247. ; d - Access PCBOARD.DAT ■ 2
  248. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  249. ;     for many PPE so they can find various informations on the system
  250. ;     (system paths, max number of lines in messages, ...) but it may also
  251. ;     be a way to gather vital informations.
  252. ;     ■ Search for : PCBDAT()
  253. ;
  254. ;------------------------------------------------------------------------------
  255. ;
  256. ; Postprocessing report
  257. ;
  258. ;    2       For/Next
  259. ;    0       While/EndWhile
  260. ;    5       If/Then or If/Then/Else
  261. ;    0       Select Case
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;                 AEGiS Corp - Break the routines, code against the machines!
  265. ;------------------------------------------------------------------------------
  266.